home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / txt.twin drive < prev    next >
Text File  |  2007-03-01  |  2KB  |  88 lines
  1. ╘╫╔╬ ─╥╔╓┼ ├╧╨╔┼╥
  2.  
  3. BY ─ICK ╦LINGENS
  4. ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  5.  
  6. ┴ SLOW BUT RELIABLE WAY OF BACKING UP
  7. A DISK WITH TWO 1541'S (OF 1571'S) IS
  8. PROVIDED IN THE PROGRAM
  9. ╘╫╔╬'─╥╔╓┼├╧╨┘.
  10.  
  11. ┴FTER THE ┬┴═ OF THE ORIGINAL DISK
  12. HAS BEEN READ, EVERY ALLOCATED BLOCK
  13. IS COPIED FROM ONE DISK TO ANOTHER.
  14.  
  15. ╘HE PROGRAM IS BUILD AROUND TWO MAIN
  16. STRUCTURES:
  17.  
  18. ╞╒╬├ RBLOCK$(T#,S#) ├╠╧╙┼─
  19.  ─╔═ DAT$ ╧╞ 256
  20.  ╔═╨╧╥╘ PA$,ERROR
  21.  ╘╥┴╨ 
  22.   ╧╨┼╬ ╞╔╠┼ 1,"U9:#/S6/D+",╥┼┴─
  23.   ╨┴╙╙ "U1:6,0,"+PA$(T#,S#),9
  24.   ╨┴╙╙ "B-P:6,0",9
  25.   DAT$:=╟┼╘$(1,256)
  26.   ├╠╧╙┼ ╞╔╠┼ 1
  27.  ╚┴╬─╠┼╥ 
  28.   ├╠╧╙┼ ╞╔╠┼ 1
  29.   ERROR(3,╞┴╠╙┼)
  30.  ┼╬─╘╥┴╨ 
  31.  ╥┼╘╒╥╬ DAT$
  32. ┼╬─╞╒╬├ RBLOCK$
  33.  
  34. AND
  35.  
  36. ╨╥╧├ WBLOCK(T#,S#,DAT$) ├╠╧╙┼─
  37.  ╔═╨╧╥╘ PA$,ERROR
  38.  ╘╥┴╨ 
  39.   ╧╨┼╬ ╞╔╠┼ 1,"U8:#/S6/D+",╫╥╔╘┼
  40.   ╨┴╙╙ "B-P:6,0",8
  41.   ╨╥╔╬╘ ╞╔╠┼ 1: DAT$,
  42.   ╨┴╙╙ "U2:6,0,"+PA$(T#,S#),8
  43.   ├╠╧╙┼ ╞╔╠┼ 1
  44.  ╚┴╬─╠┼╥ 
  45.   ERROR(4,╘╥╒┼)
  46.  ┼╬─╘╥┴╨ 
  47. ┼╬─╨╥╧├
  48. IN WHICH 
  49.  
  50. ╞╒╬├ PA$(T#,S#) ├╠╧╙┼─
  51.  ╥┼╘╒╥╬ ╙╘╥$(T#)+",",╙╘╥$(S#)
  52. ┼╬─╞╒╬├ PA$
  53.  
  54. ┬OTH STRUCTURES USE DIRECT ─╧╙
  55. COMMANDS.
  56.  
  57. ╔N THE ╞╒╬├ RBLOCK$ A CHANNEL IS
  58. OPENED TO THE ORIGINAL DISK ON UNIT 9
  59. (WITH SECUNADRY ADDRESS 6). ╘HEN
  60. FOLLOWS A BLOCK-READ COMMAND (U1) ON
  61. THE SPECIFIED TRACK AND SECTOR. ╘HE
  62. BLOCK POINTER IS SET ON POISTION 0
  63. AND 256 BYTES ARE ASSIGNED TO ─┴╘$,
  64. THE RETURNED VARIABLE.
  65.  
  66. ╔N THE ╨╥╧├ WBLOCK THE BLOCK
  67. INFORMATIONS IS CONTAINED IN ─┴╘$.
  68. ╚ERE A CHANNEL IS OPENED TO THE
  69. DESTINATION DISK ON UNIT 8 (AGIAN
  70. WITH SECONDARY ADDRESS 6). ╘HE BLOCK
  71. POINTER IS SET AT POSITION 0 AND THE
  72. BLOCK INFORMATION IS PRINTED INTO THE
  73. CHANNEL. ┴FTER THAT A BLOCK-WRITE
  74. COMMAND FOLLOWS (U2) ON THE SPECIFIED
  75. TRACK AND SECTOR.
  76.  
  77. ┴T STARTUP THE UNIT NUMBERS OF THE
  78. DRIVES ARE CHANGED; AFTER THAT CHANGE
  79. THE MAIN DRIVE HAS STILL NUMBER 8
  80. (DRIVE 0); THE SECOND DRIVE HAS
  81. NUMBER 9 (DRIVE 2). ═EMORY LOCATION
  82. $51 IS USED AS A FLAG FOR THIS
  83. CHANGE.
  84.  
  85. ╔NCLUDED IN THE PROGRAM IS ALSO A
  86. SMALL ERROR DETECTING ROUTINE FOR
  87. SOME READ AND WRITE ERRORS.
  88.